Dim fso, fileDel
fileDel = InputBox("Podaj nazw pliku do usunicia:", "Usuwanie pliku")
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(fileDel)

